#lang racket

;a
(define (get-record file employee)
  (apply-generic 'get-record file employee))

;b
(define (get-salary file employee)
  (let ((record (get-record file employee)))
    (apply-generic 'get-salary record)))

;c
(define (find-employee-record files employee)
  (cond ((null? files) '())
        ((not (null? (get-record (car files) employee))) (get-record (car files) employee))
        (else (find-employee-record (cdr files) employee))))